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BUMPAS REVIEWS 


Our recent local user group meeting was spectacular enough to 
deserve comment here. The impressive thing was all the new activity 
around the Atari 130XE and the entire 8-bit line of Atari computers. 

One company demonstrated a voice recognition system which had 
been developed on the C-64. But the extra memory in the Atari ТЗОХЕ 
makes this system work much more efficiently. It's very impressive to 
see someone speak “red” into a microphone and have the Atari display 
the color red on the screen. 

Kirt Stockwell demonstrated his company’s new product, Mindlink, 
a high-powered BBS. Ralph Walden demonstrated his new product, an 
implementation of the C language with linker and editor. He told us a 
“benchmark” test he ran was faster on his compiled C for the 8-bit Ataris 
than with DRI's C language for the STs, and faster than а C language 
he tested on an IBM PC! The $35 he asks for the disk seems very 
reasonable. 

Another product, Upgrade, installs another 64k into your Atari 
130XE to give you a total of 192k of memory! The software they provide 
permits dynamic assignment of the ramdisk to any drive from 1 to 3. 
They also had an old Atari 800 with memory expanded up to 256k! 
imagine. An 8-bit Atari with twice the memory of a Macintosh and 
memory equal to the (perhaps soon to appear) C-Amiga! 

The ST sort of took a back seat at this meeting. A HEX game was 
shown, as well as a demo disk of a game called SUNDOG. 


STuff 


(This will be the section for ST-related material in ACE) 

l've been appointed "ST Librarian" for the ACE, and | already have 
three disks of demo programs, as well as some demo programs 
(advertisements) of some commercial programs available. If you specify 
color or monochrome, I'll mail you a disk for $15. 

HOW І MADE AN IBM-ST 
(An ST with 5.25" Disk Drive) 
By David Small, Antic Publishing Inc., Copyright 1985. 
Reprinted by Permission. 

You can read and write IBM PC disks on your Atari ST if you connect 
a 40 track 5.25” disk drive to your 3.5" disk drive . . . You cannot use 
the disk drive from your 8-bit Atari .. . unless it is an ATR or Percom 
drive. . .. They are "industry standard" drives which communicate via 
standard 34-pin connectors. 

Warning: Before specifying how to hook up a 5.25" drive to your 
ST, we must caution you this is no job for electronics beginners. You need 
to understand and modify the circuitry of whatever 5.25" you are using. 
Debugging your new system can be a frustrating experience. Not only 
that, when you open your ST drive you'll void the warranty. 

Ribbons & Pins: Of the 34 pins in the standard industry connector, 
only about 14 are used. The Atari ST brings these 14 wires out in a short, 
thick cable which plugs from the ST into the first drive's IN connector. 
This cable uses a non-standard 14-pin DIN connector, but it carries 
industry standard signals. Our goal is to get these signals to a standard 
34-pin connector. Theoretically we could put a 34-pin edge connector 
on one end of a ribbon cable and a 14-pin DIN connector on the other 
and we have our disk drive cable. However, in practice | can find a 14-pin 
DIN connector. 

Kinky Wiring: There's another catch. Atari does something kinky 
with the drive B select signal. It's on pin 6 of the DIN connector when 
coming from the ST. But inside drive A it's switched from IN connector 
pin 6 to OUT connector pin 5 where it becomes drive select for drive 
B. This means Atari ST drives always listen on pin 5 for select, and the 
daisy chain scheme gives the proper drive the correct signal. Thus the 
two connectors on the back of the ST drive are not interchangeable, like 
other Atari drives. Plug your ST into the OUT connector and the drive 
won't work. 

Inside the Drive:: The method І choose to use is to tap into the 
signals inside the 3.5” ST drive. Besides voiding your warranty, this will 
probably require you to cut à slot in the drive case for the-new ribbon 
cable. If you open up the drive (use a phillips screwdriver) you'll find the 
14-pin DIN connector expands to (surprise!) an industry standard 34-pin 
ribbon cable. Of course, it does this inside the shield to prevent radio 
noise from leaking out. A small circuit board has the two 14-pin 
connectors (IN and OUT) mounted on it, and it connects to the 34-pin 
ribbon са е inside the drive. | put а "tap" from the 34-pin ribbon cable 
in the drive to the 34-pin ribbon cable running to my remote 5.25” drive. 
| then use a DB-40, 40-pin male and female clamp-on connector to clamp 
one side to the ribbon cable and the other to the remote drive's cable. 
Then | plug the two DB-40s together. You don't have to use a 08-40. 
Any clamp-on connector which covers the first 34 pins will work fine. 

Pin Swapping: But we're not done yet! We have to jump from pin 
6 of the dIN connect (drive B select) to pin 12 of the ribbon cable (drive 
B select) to get this signal across. Otherwise it doesn't show up on the 
34-pin cable. This is easy to do on the bottom of the 3.5" drive's DIN 
connect board. 


Drive B Configuration: Almost done. Now we need to set the 
remote drive as drive B. Sometimes it's called drive 1 or drive 2, 
depending on whether the manufacturer numbers drives at O or 1. When 
a drive is idle, a five-volt signal (HIGH) exists on the BUSY line. When 
the computer wants to access the drive, it pulls down this signal to zero 
(LOW). When the computer is finished with the drive, it releases the signal 
and the drive "pulls ир” the signal to its original five volts. If two drives 
are hooked up, only one may contain pull up circuitry because the 
computer can only pull down five volts. Pull-up circuitry usually is 
contained in a chip in the drive. And now you are at a point where you 
must know enough about your 5.25" drive to figure out where the chip 
is. Since the ST drive A contains all the pull-up termination circuitry we 
need we must remove termination packs from the remote drive. In the 
сав of my Tandon TM-100-2 drive | also need to deal with the select 
line termination, since it doesn't go through the resistor pack. | have to 
clip resistor R14 from my Tandon to get rid of the added termination. 
Special Note: The ST monitor throws out a lot of magnetism. If you don't 
keep your drive at least one foot from the monitor, the disk's heads will 
pick up the monitor's signals and confuse the read data. You'll 
immediately notice data error if you get your drive close to the monitor. 
This is good reason to use a fairly long ribbon cable (3 feet or so) [we 
haven't noticed this problem in-house — ANTIC ЕО]. ALL DONE! 

ІВМ ST: .. . With an IBM PC disk in that 40 track drive, . . . click 
on the B icon. It'll pull up the disk's directory into folders and “text only" 
files. You'll notice on the top of the window a PC-DOS type of 
“pathname” consisting of multiple (if needed) folders and a filename. 
GEM simply turns the concept of pathnames into folder icons and moves 
you through the path by your actions of selecting, opening, or closing 
a folder. Of course, you can't run IBM programs because they are written 
in languages which the ST cannot understand. However, you can freely 
copy and use text files and the data within them. Furthermore, if you 
write back out from the ST to the PC disk, you'll find an IBM has no 
trouble reading what you wrote. 


ATARI - ATT&T DEAL? 

The headline of the lead business story in the Sept. 9, 1985 issue 
of the San Jose Mercury reports that Atari and AT&T are "hammering 
out a sales deal.” AT&T will reportedly be selling Atari ST computers in 
their phone stores. The Mercury credits the story as originating in the 
Washington Post. This report said an agreement is under negotiation 
which will give Atari a major customer for the ST while giving American 
Telephone & Telegraph a low-cost entry into the home and small business 
personal computer market. The ST would be a natural fit into AT&T's 
upscale consumer phone marketing pipeline. 

° Naturally, both Atari апа AT&T responded with а big "No Comment" 
when asked to confirm that negotiations were going on. But that's 
standard operating procedure at this stage of the game. 


ANTIC PUBLISHING INC., COPYRIGHT 1985. REPRINTED BY 
PERMISSION. E 


TRAMIEL GOES FOR BLOOD IN ATARI “БІР-ОҒҒ” AD 

"9/4—According to the latest Adweek, ап advertising trade 
magazine, the next Atari ad takes dead aim at the Mac, the C-Amiga and 
the IBM PCAT. 

“The first ad from Atari's latest agency shows the rival computers 
and their suggested list prices. A big headline shouts, "THERE'S ONLY 
ONE WORD FOR THESE PRICES: RIP-OFF.’ 

"Not exactly the old Atari's Alan Alda warm sell. The ad is to debut 
in Rolling Stone 9/26 as the latest proof that Jack Tramiel is no shrinking 
violet." 

| really hope such an ad campaign does not go far. | think the prices 
speak for themselves. We don't need to hear about those other 
computers in Atari ads. Let's hear about what the Atari ST can do that 
the others can't. 





S/T Applications, 10760 Hwy 116, Forestville, СА 95436 is a 
monthly magazine devoted to the Atari ST. Its first issue is 20 pages 
and subscriptions аге $25 for б issues or $50 fox б issues on disk. The 
first issue contains a couple of reviews and lists some software coming 
out for the ST. It also contains some information about the OS. 

The editor admits to no experience in producing a magazine, and this 
first issue is rather poorly photocopied. There is no advertizing, so the 
pages are full of content — which 15 sure to become more meaty as time 
goes on. | hope his reproduction improves quickly 

One of the more interesting items in this first issue appears on page 
4 as a "Reader Comment”: 

"For those of you who didn't see Computer Current’s Aug 27-Sep 
9 issue: On page 43 they tell how some insider at Atari sneaked these 
four icons in among the control characters as a joke. They make a picture 
of J.R. "Bob" Dobbs of the Church of the Sub-Genius. He is the invention 
of art students who wanted to create a bogus religion based on flying 
saucers, lunatic conspiracy theories and the occult. One of his sayings 
is "F - ет if they can't take а joke.” 

“И you check pages 63 and 65 of your sourcebook for Atari (ST) 
LOGO, you'll see these icons as chars 28 through 31, if you look carefully. 
They're just to the right and above the two which make the Atari symbol. 

"Study the following listing to see the difference between print and 
type. 


TO BOB 
REPEAT 35 [TYPE CHAR 28 TYPE CHAR 29. PR "REPEAT 35 [TYPE 
CHAR 30 TYPE CHAR 31] PR "PR [F - 'EM IF THEY CAN'T TAKE A JOKE.] 
END 
You can also print out the Atari logo with this short routine: 
TO ATARI 
REPEAT 25 [TYPE CHAR 14 TYPE CHAR 15 TYPE CHAR 32] 
END 
Lois Hansen 
Oakland, CA 


SynCalc Templates 


(Synapse, 17 Paul Dr., San Rafael, Ca. 94903.) 

The SynCalc Templates are designed to be used with SynCalc. They 
are 22 of the most commonly used spreadsheet formats. One might have 
to spend hours just setting up one of these. They cover everything from 
LINEAR REGRESSION CALCULATIONS, BOND PORTFOLIO 
EVALUATIONS, to COST ANALYSIS OF PAINTING A ROOM, and 
KITCHEN MEASUREMENT CONVERSION TABLES. There is something 
for everyone who uses a computer. 

Not only did Synapse cover the gamut in the different types of 
templates which can be used, but they made them simple to use. Тһе 
instructions fit into the notebook coming with SynCalc. They just make 
up another section to refer to very easily. Apart from the fact that the 
instructions are easy to use and read they cover everything. 

First off they start by telling you how to load the program once you 
have loaded SynCalc. Then they give you an instruction sheet for each 
template, even the index пої only gives the name of the template but 
tells what it does. 

If you use SynCalc then you need this program as even if the 
templates don't cover what you want they are easy to convert to what 
you do need. 

There is one function of this program which | have not used as yet 
and that is the increased memory which can be used if you have such 
a thing. 

This is a well thought out program which is a useful addition to the 
Synapse series. If they add a word processor to this series one could 
just buy the series and do about everything one might want with a 
computer. | hope they keep up the good work and bring out more of this 
type of program to update and enhance their other programs. This is 
the type of software which will make the computer a more useful tool 


for all to use. 
— LARRY GOLD 


ERACE 
WALLY'S WORD WORKS 


($65, Sunburst Communications, Elementary disk (grade levels: 4-6) 

This package adds the elements of whimsy delight and challenge 
to the practice of basic language skills. Identifying parts of speech is 
central to the study of sentences. 

Wally is a wallaby (a small kangaroo). The player plays by directing 
Wally over the sentence and picks up words with the arrow key/joystick. 
Then he drops that word into the correct pocket (ie.; noun, verb, 
preposition, etc.). The player also get bonus points for evading the speedy 
Rovers who are little creatures who chase Wally when he has not picked 
up a word. 

The main menu has 9 categories- Play, demo, Definitions, 
Instructions, etc. 

The package can be tailored to fit the student's needs. It is a neat 
way to teach the parts of the sentence in a fun way. Available are two 
more disks in this series: Pocket Pitfalls and Rovers' Revenge for more 
advanced studies. 

As usual, Sunburst sends a bright orange notebook to hold the 
manual and disks. The instructions are simple to use with ideas. 


FAREWELL 


The Ness’ have been "unsung heroes” of ACE for a long time. They 
have spent many hours keeping our program library operating for several 
years. We all regret their moving on, and wish them the best of luck. 
The new Program Library chairpeople are Chuck and Jody Ross, 2222 
Ironwood, Eugene, OR 97401 . Thanks again, Ron and Aaron! 

— M. Dunn, Co-Editor 


SO LONG, FAREWELL, & THANKS 


After a year of trying to start a new career, | have decided to return 
to the airline industry and will be moving (my body only) to Memphis, 
Tennessee. My heart and home will always be here in Eugene and | will 
be commuting between the two as often as possible (but not often 
enough to take care of the library). Aaron will be starting college at 
Oregon State this fall majoring in the sciences, and will also be unable 
to care for the library. 

Since they have had two years of rest, the duties of the library will 
be returned to the capable hands of Chuck and Jody Ross. We will 
certainly miss the early morning phone calls from overseas, the pile of 
mail arriving daily, and the most able assistance of our postal service 
in properly folding the disks we receive. 

The mail we have received from nearly every corner of the world has 
made this a most enjoyable task. We are proud to have been involved 
in the rapid growth of the library, from 17 disks in 1983 to nearly 70 
now. However, this could not have been possible without the vast support 
we have received from our many readers. We have made many friends 
both for the library and ourselves and we hope to continue to hear from 
you. 

Thanks to the many contributors and correspondents such as Stan 
Ockers in Illinois, Paul Freeman in Maryland, Ed Slawson in Maine, Wayne 
Real in Australia, and Les Ellingham in England. The trouble is that if we 
mention a few, we will omit many others so we will just say THANKS 
TO ALL OF YOU. 

Locally, thanks are due to John Kelley in Portland for his many fine 
contributions, his warmth, friendship and hospitality. In Eugene, we have 
to say thank you to Mike Dunn, Larry Gold, Jim and Linda Bumpas, Chuck 
and Jody Ross, Kirt Stockwell, Dick Barkley, E.J. Knoll, Bob Browning, 
Bruce Ebling, Ruth Ellsworth, Don Marr and his staff at Computer Palace 
and to Stacy Goff (wherever you are)! We want all of you to know we 
truly appreciate your assistance. There are many more names which 
should be included, but space precludes listing them here. Your support 
and friendship will always remain dear to us. 

We want to say thanks to all of you who started your letters with, 
"Dear Мг. & Mrs. Ness...’, as father and son, we found this quite 
humorous. 

A very special thank you to Carole Ness, wife and mother, for her 
understanding and patience beyond reasonable limits, while we had 
computer equipment and library materials scattered throughout the 
house. Also we want to apologize for occasionally making disks instead 
of keeping the lawn mowed or the garage cleaned. 

Again, our thanks and best wishes to all of you. 

— Ron and Aaron Ness 
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SORTING ROUTINES 


IN BASIC AND ACTION 

Sorting data is an excellent example of something which should be 
done by a computer and not done by hand. Sorting routines vary widely 
in complexity and speed of execution. This article discusses several 
sorting algorithms in both BASIC and ACTION. The actual execution 
times and source code are given for each algorithm. 

OVERVIEW 

There are six program listings at the end of this article. Here is a short 
description of each: 

(1) NUM1000.BAS - Creates a test file of 1000 random numbers 

(2) NUM1000.ACT - Same as (1), written in ACTION 

(3) SORTNUM.BAS - BASIC Bubble and Heap sorts program for 
numbers 

(4) SORTNUM.ACT - Same as (3), written in ACTION 

(5) SORTSTR.BAS - BASIC Bubble and Heap sorts program for strings 

(6) QUICKSRT.ACT- Uses procedure from ACTION Toolkit to sort 
numbers 

If you compare the code, you can see that precisely the same 
algorithms were used for both Listings З and 4. A LISTed version of the 
BASIC program in Listing 3 was used to create the ACTION program in 
Listing 4. This was made easier by the fact that Listing 3 consisted of 
several sets of subroutines. The hardest part of the conversion was 
unraveling the spaghetti code between lines 680 and 730 of Listing 3. 
Some print statements were eliminated in the ACTION versions, since 
they run very fast. 

RESULTS 

The following table shows the number of seconds required to sort 
sets of numeric items. The input file contained random numbers between 
1 and 1000, which were produced by the program in Listing 1. The 
following results are for the sort programs in Listings 3, 4, and 6. 

Items 100 999 
BASIC 

Bubble Sort 115 13,513 

Heap Sort 31 471 
Machine Language 

Bubble Sort 1.60 173 
ACTION! 

Bubble Sort 1.25 128 

Heap Sort .50 7.0 

Quick Sort .50 6.0 

The following table is similar to the prior table, except that The input 
file contained sorted numbers between 1 and 1000: 

Items 100 999 
BASIC 

Bubble Sort 1.5 5 

Heap Sort 32 493 
Machine Language 

Bubble Sort 11/60 20/60 
ACTION! 

Bubble Sort 1/60 11/60 

Heap Sort .50 7.3 

Quick Sort .50 37 

As shown above, the Bubble sort is very fast if the data is sorted, 
while the Quick sort is much slower! The Heap sort is not sensitive to 
whether the data is sorted or not. 

No table was prepared for the sort routines in Listing 4. These 
routines are similar to those in Listing 3, but they have been modified 
to sort string variables. The sorting times bear similar relationships to 
those shown above for the Bubble and Heap sorts. The file DUP.SYS was 
used as a source of string data that would be constant. 
DISCUSSION OF SORTING ALGORITHMS 

The programs in Listings 1 and 2 create a test file that can be used 
by the other programs. This same data was used by each sort routine. 
Otherwise, some extraneous differences in execution time could result 
due to non-random numbers! 


Bubble Sort - BASIC: this is the simplest of all sort routines. | 


Unfortunately, it is also the slowest, and the most inefficient. An increase 
in the number of elements by a factor of 10 increases the sort time by 
a factor of 117! The BASIC version of the bubble sort is shown in lines 
500 to 600 of Listings 3 and 5. 


Bubble Sort - Machine language: This is approximately 75 times. 


faster inan the BASIC version. This routine is from the March 1982 issue 
of Compute! magazine. It is the only published machine language sort 
for the ATARI I know of which actually works. This routine is contained 
in the DATA statements from line 6160 to 6330, and the setup is shown 
in lines 400 to 500 of Listings 3 and 5. The machine language version 
is quite fast, but it suffers from the same inefficiency as the BASIC 
version. 


RICHARD GROSZKIEWICZ 
SOFTWARE POLISH 


The method for calling the machine language bubble sort is clear 
when sorting strings, as shown in Listing 5. It is trickier when used to 
sort real numbers, as shown in Listing 4. This is because each real 
number is stored in six bytes of memory in ATARI BASIC. This is why 
the record length is declared as six in line 440. 

The machine language sort routine must be given the address of the 
array to be sorted. It is not possible to directly obtain the address of a 
real variable in ATARI BASIC. Instead, the string variable NUMS(4) is 
defined in line 1100 directly preceding the array S(999). The address of 
5(999) is equal to АОВ(МОМ $) + 4, since four bytes are allocated to the 
string NUMS. 

C 1e last problem is that all arrays are allocated storage starting at 
the zeroth element. Since the first array element to be sorted is stored 
іп S(1) instead of S(O), we must define the starting address to pass to 
the machine language sort as ADR(NUM$)+4+6. 

Bubble Sort - ACTION: This version of the bubble sort is 100 times 
faster then the BASIC version. This is faster then the machine language 
version of the bubble sort! The reason is ACTION stores the sort items 
as two byte integers instead of six bytes in memory. The machine 
language sort actually has to do three times as much work as a result. 

Heap Sort - BASIC: This algorithm is slightly more complicated than 
the bubble sort. It came from the April 1984 issue of PC TECH 
JOURNAL (which contains numerous other routines). The idea of this 
routine is to pass through the data twice. It builds a "heap" the first time 
through. This is fairly fast for BASIC, and it is more efficient than the 
bubble sort. The heap sort starts out four times faster than the bubble 
sort, and ends up 30 times faster. 

Heap Sort - ACTION: This version of the heap sort is roughly 70 
times faster than the BASIC version. This is a typical result of the type 
of speed improvement you can get by programming in ACTION!. 

Quick Sort - ACTION: The actual algorithm for the quick sort is 
not shown in Listing 6. | cheated and used the version contained in the 
ACTION! Toolkit, and INCLUDEd it in my source code. There is a listing 
of the quick sort in Microsoft BASIC in the April 1984 issue of PC TECH 
JOURNALI. 

The quick sort is generally accepted as the most efficient sorting 
algorithm. It is alsc one of the most difficult to understand. I’ve included 
times for this algorithm to show that (a) it is very efficient on unsorted 
data, but (b) it becomes inefficient if the data is partially sorted already. 

SUMMARY/CONCLUSIONS 

Each of the sorting methods has strengths and weaknesses: 

Bubble Sort (BASIC): Very easy to understand, but too slow. 

Bubble Sort (M.L.): Fast for all but the largest arrays, very compact. 
Does not sort arrays correctly if they contain both negative and positive 
numbers. 


VP RAMBLINGS 


It is now October and the year is almost over. In the land of Atari 
many new things are happening. The one which has me excited is the 
laser-disk system allowing one to have a disk with say a complete 
encyclopedia on it and one can access any subject as quick as you can 
find it in the index, and with pictures. This can revolutionize libraries, 
and anywhere else where they store information. 

The new BBS is running very smoothly now as most of the bugs 
have been worked out. The only thing we have to do at this point is to 
change over to 1200 baud. We are working on that and soon we will 
have it running at that baud. Call the board and see what you think. | 
want to thank you all for your patience when we were having so much 
trouble with the board and many of you couldn't get on or your password 
was lost. We hope those problems and all the others are now gone 
forever. Remember this system requires you to put in your own 
PASSWORD and not one which we give you. Anyway, enjoy the board. 
We hope you will upload your programs to us so we may put them on 
the board for others to use and enjoy. 

As you may have surmised “С” is the coming language for eight and 
sixteen bit machines, and we are publishing programs in this language. 
If you want to see more let us know and we can start a separate section 
devoted just to "C". 

This month | have used several of XLEnt's programs to do the 
newsletter. | hope you like what you see and next month | will have an 
indepth review of their products. 

— Larry боја 
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8 КЕН ...... FILE: SORTSTR. BAS 
18 НЕМ 


188 
288 
399 
158 
488 


410 
428 
438 
448 
458 
468 
478 
488 


588 
518 
528 
518 
548 
558 


60508 1808: КЕМ 
60588 2088: ЕМ 
60508 3880: ЕМ 
END 
REM B 
М.Е, BUBBLESORT) 
в 


REM ВРОКЕ STGRT/END OF SORT KEY. 
POKE 203,8:РОКЕ 284,4 





POKE 285,5:РОКЕ 286,8 

Ma МОН МАКЕ THE USR COLL! ____ 
А058 слой (5081753 , ADRESS) ‚М 
RETURN 

REM B 


BUBBLESORT 


K-N 

T-8 

FOR 122 TO K 

LASTz(I-2)9.*1 

CURRENT-LAST*L 

ТЕ 5501 457, CURRENT-1) (255 (CURRENT, 


CURRENTtL-1) THEN 578 


568 T-I:H0LD$-55 (LAST, CURRENT-1) : 55 (14 


ST, CURRENT-1) -5$ (CURRENT , CURRENT*L-1) : 
5$ (CURRENT, CURRENT*L-1)-HOLD$ 


978 
975 
588 
585 


688 
618 
628 
638 
648 
658 
668 
678 
688 
638 
788 
718 


NEKT I:? ","; 
K-T-1:IF K}i THEM 510 


2 :RETURN 
ВЕНЕ 
НЕДРУОЕТ 
Я 
=й 
FOR LL-INT(N/2) TO 1 STEP -1 


н0105:55 CLX CLL71) 41, 0) 
GOSUB 688: МЕХТ LL:LL-1 

FOR R-N-1 TO 1 STEP -1 
Н0195-55 CLR *1,LX(R*1)) 

5$ CLXR 41, LX (Q131)75$ (1,13 
60518 688:NEET R:? :RETURN 
J-LL 

I-J:J-2*J 

ОМ 2tSGN CJ-R) GOTO 718,728,738 


IF 5$CLXCJ-1) *1,LXJ) (55 (149441, (LEC 


4+1))) THEN J-J*1 


728 IF HOLDS$(SSCLXCJ-1) *1,L.)). THEN 5$ 
ажІ-12%41,1%1)-55 (0€C€4712 41,142 :G0 T 


0 638 


738 Н01025-Н0109:Н0105-55 (LX CI-1) +1,L# 
12:55 (LX (1-1) *1,LX1) -N0LD25:?. ",";:ВЕТ 


ШЕН 
788 


REM B 


GETKEY ROUTINE 
3 


SORT BASIC 


888 
818 
828 
8318 
848 
888 


588 
910 


928 TIME-PEEK(28)1256X(PEEK (19) *2569PE 


POKE 764,255 

IF PEEK(764)-255 THEN 818 
KEY-PEEK (764) 

POKE 764,255 

RETURN 

REM B 





OLPTIME-TIME 
FLA6-1-FLAG 


EK (18)) 


918 
348 
258 


968 IF FLAG=@ THEN ? “ELAPSE = “;ELAPS 


E 


TIME-INT(1888XTIME/68)/1888 
ELAPSE-TIME-OLDTIME 
? “ТІНЕ = ";TIME 


978 RETURN 
980 REN E 


INITIALIZATION RCUTINE 
й 


1989 ? СНЕ$ (1253 

1818 РОКЕ 712,8 

1028 РОКЕ 710, 4+i6*INT (16800 (12) 
1650 POKE 782,12 

1188 DIM TYP$ C1) , MUMS (4) , SORTS (1263 
1185 60508 5800 


1118 
1120 
1125 
1158 
1149 
1158 
1155 
1168 
1178 


? 1? "Which sort to execute?" 
? |? "(B) Bubblesoert' 

2:7 "(M) ALL. Bubble" 

? |? "(Н) Heapsort";? :? 
G0SUB 808 
If KEY-21 THEN TYP$-"B" 

IF KEY-37 THEN TYP$-"p" 

If KEY-57 THEM TYP$-"n" 

IF TYP$O "B" AND тур5 О"м" AND TY 


PS4>"H" THEN GO TO 1148 


1208 


? :? |? "Ном many items do you wa 


nt to sort” 


1205 
1218 
1228 
1238 
1248 
1258 
1268 
1738 
1888 
1885 
1818 
1828 
1818 
1848 
1858 
1388 
1388 
1998 


? "Max = 999, Minimum - 18" 
INPUT NUNS 

TRAP 1218 

N-UAL CNUMS) 

IF М(18 THEM 1285 

IF 82999 THEN 1205 
N-INT(N):TRAP 34567 

(25 

оти 5$ HL) , HOLDS (L) , H0LD2$ (L) 
5$-CHR$ (8) :55 (180 3 -55:55 (23-55 
NBABER= НЯ. 

ADDRESS=ADR (59) 

10-1 

OPEN Н10,4,0,"%:МІР,5Ү5" 
605ШЕ 7888 

60508 308 

RETURN 

REM B 


2888 
2818 
2078 
2988 
2998 


5888 
1858 
i188 


00. SORTS 


IF TYP$-"M" THEN GOSUB 488 
IF TYP$-"B" THEN GOSUB 588 
IF TYP$-"H" THEN GOSUB 680 
RETURN 
REM В 

PRINT RESULTS 


60588 388:РОКЕ 766,1 
605108 888 
FOR Ісі TO N:? 1,55 1% (1-1) +1, IH 


); МЕКТ I 


3988 
56880 
6818 
6628 
6058 
5848 
6858 
5868 
6878 
6888 
6838 
6188 
6118 
6128 
6125 
01:8 
6148 


· 6158 


6168 
6178 
6188 
6138 
6288 
5210 
6228 
6218 
6248 
6258 
6268 
6278 
6288 
6238 
6188 
6318 
6329 
5350 
7008 


7818 
7928 
7658 
7848 
7858 


POKE 766, 8; RETURN 

REM 
ВЕН 
На Из, пумБег of records 15 ЖЕ 
REM ПРЕНЕТИ РОКЕ стаг па ап9 —— 
REM СВО 








ositions (relative) 


REM Рав: lus total recrd 


REM NIM тн, and ascend vs дезспа 


REH 
REM ERC TART a КЕТ:РОКЕ 285. 5ТЕ 
МА ЩЕНО ОГ 5ОВТ КЕТ:РОКЕ 284 ЕКО 
REM 


REC LENGTH-17 POKE 265,RL 





REM 
22 One moment please, M 
FOR 1-1 ТО 126: ПЕЙО A 
SORTS (12 -CHR$ (à) : NEXT І 
RETURN 
рата 194,104,133,217,194,111,216 
рата 184,11:,282,184,1331,288,16j 
DATA 8,131,218,113,297,162,1 
DATA 165,216,131,214,165,217,113 
рата 215,24,165,214,113,212,181 
вата 285,111,214,165,215,111,211 
рата 105,0,133,215, 164,283,165 
DATA 206,240,10,177,214,209,212 
рата 144,44,248,12,176,19,177 
рата 214,209,212,144,13,248,2 
DATA 176,38,288,196,2804,248,227 
DATA 176,23,144,223,169,1,133 
DATA 218,164,205 ,136,177,214, 72 
DATA 177,212,145,214,184,145,212 
DATA 192,8,288,241,252,224,0 
DATA 288,2,238,207,228,288,288 
DATA 172,165,282,197,287,288,165 
DATA 165,218,2801,8, 208,144, 56 
REM B 

CIO: ТО GET BYTES 
TRAP 7188 
IOCB-832*10X16;POKE 1008+2,7 
ADRHI-INT (ЛОРВЕ55/ 256 
ADRLO-ADDRESS-ADRAIRZ56 
POKE IOCBt4,ADRLO:POKE ТОСВ+5 ADR 


SORT BASIC CON'T 


HI 

7868 МИМНТ-ТИТ CHUMBER/ 2563 

7078 NUHLO-NUMBER-256#NUMHI 

7688 POKE 10С8+8,МИМО:РОКЕ IOCB*9,NUM 
HI 

7898 I-USR(ADR С ҺҺЫ VEF") , T0962 

7188 TRAP 44444:CLOSE HIO:RETURN 


C BY WALDEN 


Fx STUDY.C ЖЕНИ 


/* à normal fori loop X/ 
for (i=1;1¢(18; tti) 


"З й complex fort loop #/ 
for (к=1=0, j-3; val?4; kt-12) 


"жо an infinite fort loop. You could 
"Ж get out of this with the break; 
f* statement 

for (128; ; ++1) 


„хо Ап example of the 7: statement 

z= tadb)? a:b 
ғы The above will assign to z either 
"жо а or b depending on which is larger 


maind) $C /* run this program! 
int i; 
for (121; 143; +41) 5C 
к рус recognizes only one 2: per line 


printfü'There 75", 
(1)13? "are" : "15"); 
' so we split the printf statement 
printf(" #4 player7#s\n",i, 
(124)? 5,1. : 7,13; 
5) 
8 


maint) 5( /% run this progran! 
int i; 
/* this will count the number of keys 
"Ж pressed until the BREAK key 
forti-8;getchar())2-8;**i1; 
printf('"AnZd keyZs",i, 
(1522 117- ! и в ив " 
printf("Zs pressed.\n", 
(i == 1)? "was" : чеге"); 
5) 
ие 
1% 
ж 
/¥ 
/% 
и 


NOTE: == is used instead of = in С 
when used to compare two values 
rather than assign one value to 
another. (1 == 1) WOT (1-1)! 

It's a common mistake to make if 
you're used ta programming in BASIC 


/ж MENU.C Written in с Ұ/ 
/* This program lists a menu of ж/ 
/* "COM" files, and allows the #/ 
/* user to select which file жу 
/ж to run. x/ 
maint) $C 


int iocb,place,count,i, j,k, і fmargin; 


char dirname (281, Тир (281, 
filename 172641; 


/ж д wildcard will be used unless %/ 
f* the user specifies otherwise. ж/ 
/% The default drive will be added X/ 
/* by the normalized) function. ж/ 


if(ü!getdostdirnawe)) strcpytdirname, 


ny | 


/* don't allow any extentions #/ 
if ({izstrchr (dirname,'.')) > 8) 
dirname (11-8; 
normalize (dirname , “COM? ; 


if(Ciocb-copen(dirname,‘'d')) < 8) $t 


printf("Can't open directory of 
изп", dirname) ; 
f* fatal error, so return to 005 #/ 
exit; 
5) 
count-8; 


5) 


/* remove the FREE SECTORS filename X 
f 


count--17; 
ciloseallO; /X* close the directory # 


if(ü count) 56 
printf("NO FILES!\n"); 
/* Can't do a menu with no files! X/ 
exit; 
$) 


к Now we print the menu X/ 
putchar('Nf')J;/X clear the screen #/ 
/* for future use #/ 
1 fnargin-peek (8x52); 


/* Print all filenames #/ 
fortíplace-i-8;i(26 && place<count; 


t#i,placet=17) 5( 


printf("Zc- ","4'"+1); 
/* print the primary паме only X/ 


for(k-3;filename[placetkl !- '.'; 


ғғ) putchar (filename (placetk]) ; 


putchar('\n'};/# add the return #/ 
if€i == 14) 5( /* Second column #/ 
ЈЕ set the left margin #/ 


poke (0x52, 283; 
/* reposition the cursor at the top o 


/* read all the Matching filenames #/ f 


whiletcgets(tmp,iocb) > 8) 5( 
/* start with the drive #/ 
strcpy(filenametcount, dirname); 
/ add the primary name #/ 
for (р1асе- 2,122; 1410; ++1) 96 
/* stop if it's a space */ 
iftisspacettwp[i1)) break; 
else filename (сопп1+ (placett}]- 
Тир (11; 
5) 
лк ера of. the string /. 
filename Гсоип? +р1асе1-8; 
/* add the extension X/ 
strcatífilenametcount,". COM) ; 


/ lise the following line as а templat 
P 

/* to remove any files you don't want 
"Ж to include in the menu #/ 


if Cindex(filenametcount,":CC."3) 
continue; 


else countt-17; /* next filename Ж 


6 


/* the next column %/ 
position(28,8); 

$) 
$) 

/* restore the left margin #/ 
poke (8x52,1fmargin) ; 
position(2,23); 
printf ЗЕЕЕСТТОК 2 ; 

/* until we get the correct input X/ 
whiletisalphati-toupper (getkey (222 


&& (14-786 > count/1731; 


/* go run it! X/ 
chain (filenamet ((1-'й'3%172); 


5) 


; FILE: SORTHUM. ACT 
"зааазвазвевавенававенвавевавзеневавевеввевик 


HDEFINE GLOBAL VARIABLE 


жихикккикккюнавввавенвеневаванеовенен е 


РШЕ 


та - ж ~ 


мо 


ES 


BYTE КЕУ,РІА6- (81,ТУР,НРі 65 
CARD ARRAY 51680) 
CARD 


N,K,I,T,H, 
R,N2,L,LL,HOLDP,RR, J, HOLD2, JJ, R2 


P HEIBOBBOOOOHEOBHOOOBSHHOBOHOBOBOBORBOBPE 
% 


PROC BUBBLE С) HBUBBLE SORT 


; ТЕЗТРАТ О 
128 


FOR 1-2 TO K 

00 
IF 5(1-1))5(1) THEN 
T-I:8-5(1-12 :5(1-1325 (1) :5 CD) =H 


FI 
00 


; IF 1-18#(1/18) THEN PRINT('",") ЕТ 


=T-i 
UNTIL T(3 
09 


PRINTE(C" “3 

RETURN 
взававввввавеневавнвевеававневевевавввеник 
* 

PROC HEAPSHAP(G HF OR: HEAP SORT 

— 
* 


J=LL 


00 
1-4 
HFLAG-i 
J-2XJ 
JJ=J 
RR-R 


SORT ACTION 


IF JJ(RR THEN 
ТЕ 55245041) THEN 
Ј=Ј 41 РТ 

FI 


IF JJ(-RR THEN 
IF HOLD(SCJ) THEM 
5(13=250Ј) HFLAG-8 FI 
FI 


IF ЈЈУВЕ OR HFLAG-1 THEN 
HO0LD2-HOLD : HOLD-5 (12 
5 (1) zH0LD2 

РТ 


UNTIL HFLA6-1 
0% 


RETURN 
QIGBOOOOUOHEEOBHEOBOHOOBHOHOBIBHOIHHOHOE 
* 

PROC HEAP С) HHEAPSORT 
ззевваввавачевавазвввеваваневавененавенк 
* 


R-N N2-N/2 
FOR 1-1 TO н2 
po 
LLzN2*1-L ;NO STEP -1! 
НО;0-5 (LL) 
HEAPSHAP () 
i IF L-18X(L/18) THEN  РЕТИТС",") 
FI 
09 PRINTEC" “) 
LL-1 
FOR R2-1 TO И-1 
ро 
R-N-R2 ;NO STEP -1! 
HOLD-5 (8+1) 
5(2+1725 (1) 
HEAPSMAP C) 
Н IF R-i18X*(R/18) THEM РЕХИТС'",") 
FI 
00 PRINTE(C" "3 
RETURN 


— PRINTEC 
ғ 


% 
PROC GETKEY О 





РОКЕ (764,255) 


„ари та PRINTEC 


20 UNTIL РЕЕК (76439255 00 


KET-PEEK (764) 
РОКЕ (754, 255) 


RETURN 
узвеввевваненоевеневененненененеененеєє 
ж 
PROC ТІНЕ — 

ж 
CARD time 
BYTE р18-18,р12-12,р28-28 


flag = i-flag 
ТЕ flag-8 р not ist call 
THEN tine = p28 + 256% 


ірі? + 256%р18) 
Print("Elapsed Time: ") 


Printé (time/6@) 
РКІНТІ"“ AND “3 
PRINTCCTIME MOD 60) 
PrintE¢"/66 secondS') 


FI 

р18-8 ; reset 
р13-8 ; the 
p28-8 ; clock 


RETURN 
; GOBHBOBHEBHHEBOHOHOHOCHHHOHHEOBIHOIIOEE 
* 


PROC FIRSTSCREEN (2 HCLEAR AND PRIN 
T 


; THBBOBHEOBHOOCHHOBHHOBORHOBHEBBBHHOEOOBHE 
* 


BYTE J,FIRST-[I81 


IF FIRST-8 THEN GRAPHICS(@) FI 
FIRST--*1 


POKE (712,83 

J-RAND (162 РОКЕ (718,4*163.) 
POKE (782,12) 

PRINTEC" '') 

PRINTEC' Which sort to execute?" 


"у 
(В) Bubblesort') 
“у 

tH) Heapsort"J 


PRINTE (" 


PRINTE(" 
PRINTE 
PRINTE" '') 


= 
- 
u$ 


RETURN 
„авававазнзввевавевавававевевевевневенек 
= 


RESCUE 


8 РЕЖЕ 718,9:? CHRS(125) 57 19 и "PLEAS 1858 DATA С85980840485С8286552496880Ғ4 493888038534ED059380015893,5983 


E WAIT, CHECKING DATA!":FOR PEL-8 TO 1 
@: NEXT BEL 

18 BATA 8,1,2,3,4,5,6,7,8,3,8,0,8,8,8, 
0,8,18,11,12,13,14,15 

15 OPEN #1,8,8, "0: ПЕЅСЦЕ, рат" 

28 DIM НЕК (91) ,95 (12 , HEX (222 РОВ K-8 
TO 22:READ M:HEN(DCTN:NEHT КИ ТНЕ-298: 
00228726: НЕН-Й0:ТРАР 68 

25 TOTAL-S:LINE-LINEt18:? " — LINE:"; 
ТИЕ: ПЕЙО HEKS:IF LENCHEMS) O98 THEM 11 
8 

28 BATLIN=PEEK (185) +256 РЕЕК (1842: IF D 
ATLINOLINE THEN POKE 559,534;? "LINE " 
;jLINE;" MISSING!!!" S ЕКО 

38 FOR Х=1 TO 89 STEP 2:01-05С(НЕКУХК, 
433-46: D2=ASC (НЕКУ (X41, X41} 3-48: BYTEZH 

EX (013 16 + НЕК (92) 

48 PUT ні, ВУТЕ: TOTAL-TOTAL*BYTE:NENT Я 
REAR СНК:ТЕ TOTAL-CHK THEM POKE 52779 
,8:60T0 25 

58 GOTO 128 

68 IF PEEK(198) O6 THEN 138 

78 РОЖЕ 559,34:? CHRS C125) ; CHRS (255);" 
MARNING, MAKE SURE PROGRAM 13 SAUED!! 


98 

75 7 3? 3? " 
T ¥$ 

88 TRAP 180:0105Е #i:IF Y$-"Y" THEN ОР 
ЕМ #1,4,8, D: RESCUE DAT" 

85 IF Уб) у" THEN END 

96 GET #1,BYTE:POKE MEM, BYTE: МЕМ-МЕМ+1 


READY TO КПМ СУЛИ"; :INPU 


35 GOTO 90 

188 IF РЕЕК(195)-126 THEM A-USR(AD):EMN 
D 

185 POKE 559,14:? "ERROR ";РЕЕК (195) :Е 
ND 

118 POKE 559,34:? "NUMBER MISSING OR à 
DDED!":END 

128 POKE 559,34:? "вар DATA!":END 

118 POKE 559,34:7 "ERROR ";РЕЕК(І953:Е 
KD 

1888 DATA ZOGSE4A@SFAZ5ERIA7ZESCEAAING 
8088024957808182409008D8ED442CA80 08249 
5Е8098598088084994809959,5404 

1010 рата 0968808704092Е802Ғ824982801) 
p84382806F8209068D38826025380710249E88D 
Ғ48228885209148085590981,4544 

1818 рата 8D085343808800C6828D832D24D1FDG 
29810880401Ғ082981Ғ8Ғ94С7Е518084820ФҒА 
407Е510918й285902058Е8Е8,5231 

1838 DATA 8й08Ғ849188057584911808С5980 
585849878081591988805858804758804Е5880 
с18219988010821958801182,4724 

1848 DATA A9F88DC3538DC65342828088594? 
828ЕҒ52849ҒС80С852498880С9598089594958 
8)8655980845928885249808),5928 


820499480(5822884Ғ524994809959898Е%08559 1258 DATA BOSCESCECEIBSIADIBSIDSFOAISS 
80940842СҒ498190886ВЕ8Е6,5882 8)9859СҒ9859785456й0985908Ғ5285456й4006 
1868 рата 0409Ғ84984808959498880С1598) 59186288800852С27899С5й9,6862 
075980(559808059801Ғ08800459808759809й 1258 DATA 888)С559801Ғ0828045528545528 
59809С5960С059808Е598рСА, 6589 5456400Ғ5180604598088594918695858805758 
1878 DATA 590020805228ҒС55498880С45980 4818СЕ885908816889505809,5118 
С559801Ғ0809248081072098Е808802495Ғ8028 1278 DATA 10Ғ0891869819930584С82550918 
592088004С2055908Е58Е8Е8,5522 — |. 991058884С8В855СЕ8Ғ5?28ҒС55004Е58804Ғ58 
1888 рата Е8Е82700Ғ660ЕЕБ4594914825059 80585840В8Ғ52Ғ88ҒйСВҒ5981,5119 
188455490080810280689218ҒС554978890902 1288 HATA 124908902058048808Ғ95858584С 
28ҒС55А498880810780С45220,5685 4151049888098597285456СЕ985209Ғ868ЕЕВ059 
1898 DATA 885328055528ҒС55СЕС859СЕ8459 42892СЕВ05208815880205802,5522 
40С55928Е90580С6594С06510780800158909Ғ 1298 DATA 19Ғ888659019050504С8056491890 
53E8E81408F56842884D0159,6848 1058C44C1556280E52280365128545028005428 
1188 DATA DDC2SSFSOGESESBEDOFI68BDBS5S8 CASGADCASIESOTACHESTANLS „412? 

ESESESID IF SICABDALISSID SF SIGGCE IOS IFOG1 1388 рата 59Р8834С20655АрВЕ5988Р84С2256 
50407882809Е5929810882СЕ,65397 8288480:2С4р0Ғ08808ҒА50АВС859Ғ815СЕ0259 
1118 DATA 99594D9E592282D883EE99594D93E 0880492880825240Ғ5624982,5847 
5929880888ЕЕ98590988809С59409Е597298408 1518 DATA 8)Ғ2824С52Ғ4й49ҒС682С921088042 
88(Е98594984802С59й409852,5216 FFBbFCOZADBES942FFGDBESSADBES9F6024C67 
1128 DATA C99808880E985343018D€2590028 E4EEC282285C540D8759D08F , 6036 
59C92FD8021EE98594D9959C949D803EE935945 1128 рата ADC153C9210888430F0D805280B7 
8F8D3D524092653C304089542,531? 59Й085002983Ғ88ЗЕЕ0159й084082988Ғ88ЗГЕ 
1128 DATA 8880905904С945989495918609659 (5594084082984Ғ802ЕЕС459,5645 
4ЙЕЕ94590988185988С408Ғ448042888098590Е 1550 DATA й08С082986Ғ883ЕЕС559й0С459Ғ8 
995989015890886СЕ8С8СЕ98,5827 80404й8082920978808702СЕСй5940С259Ғ841 
1148 рата 59D8F140285928060508684288449D СЕСҒ5940СҒ59808208СЕ0459,6875 
886890806090886P30986E90086FCADOEEGBAD 1248 рата 8004598081080986800259С5С845 
С159С9419868640С559085868, 5545 с88094041984098785888084048540ЕЕВЕЗВАР 
1158 DATA CECCS9ADCCS9F08016843548D6C59 8Е584280908Е58Е8Е8Е8Е827,5765 
&DCD590047EEBD534D80D28D1EDOCS4A20F6C9 1150 DATA DOFGEECIS9288D526D8AD2CDC855 
9888Ғ24809888001598С002Е59,6672 982940С75949СЕ80С75940С75964088899Е45ГС6 
1168 DATA AZATSESZDOBECFSIAIGSSOSBSIAZ (089208Ғ84880929Ғ451С8С803,6512 
408Е085980015899086ЕЕ808СЕ985900985908 1368 DATA 08Ғ84880992Е453(8С8890878СЕ84 
ҒӘйЙ015900С2498180С05268,6412 59Ғ8824С4257408659800459080595964йй4988 
1178 DATA 80С85900150001590888094680Сй4 90705ЕЭР705Ғ908Е65208Е56,6281 
594(17540ССЕ59049804С5154098180С85900068 1578 DATA СЕВ9594089590805098480895340 
5918598880085940С978908Е,52395 895980й04097090705Е908Е65897С90705Ғ9р8Е 
1188 DATA 49888DCD5280C8594D84D28PCC59 654С62Ғ4488048028880С857,5816 
4ССЕ59498880985980015899886ЕС8Е8СЕ9859 1580 рата 901600Е8Е803209Ғ54084028019308 
4)985998Ғ858998066ЕС2С888,6148 60546848147806080800808880008008000008 
1198 рата DOF84CB95360C159C948BO8168CF 8000000006080060808086088,2878 
0759г8815684981800259800159081600с15989 1198 DATA G880000000000006000080008080 
C8988168420180D 359EEBD52,6303 98008008000000000800000089008988008808 
1288 DATA 490880045980810684084072С94298 900000007070784650582886, 721 
ҒЭС96888Ғ5й88С(05594788804Е5999886068Ғ8 1400 рата 528479Ғ592855085856805С560850 
E84ADOF46B8CED45200D4538D,6753 565885E56885F56086056886136806255806356 
1218 DATA 8108С91Е98815049888003598988 086456006556886656886746, 2864 
4404С0559998860Е8С8Е84008Ғ768СЕС3594062 1418 DATA 5558873886410858414243444580 
59Ғ88158СЕВ859Ғ8815840С5,5118 1811151518988888808808000008Сс8С5С2С5(8 
1228 DATA 5980025909072808859СЕВ5594085 84181188808888080808808088,2134 
59800408С95ЕҒ8816849888081028081088082 1428 рата овевевесесесесесесесесесесес 
0680060 2ЕЕ99594310809859,5617 зсесесесвсесесесесвсесесесесвевсесесвс 
1218 DATA 205456СЕЗ85940985908Е5А98842 есесесесесесесесесесевевб, 614 
81285051й0(559Ғ8824С705540С459Ғ8094С6Е 1458 DATA 878588282С5С6506С6С606С50606С 
5249088081228008702288853,5275 606088888886887E2F 38111213141516171738 
1248 рата 8988йССЕ59429899886ЕС8Е8Е808 19888808806E6F 7871727174,1147 
D8F780015320545642488ED8598ECA594C9959 1448 РАТА 75767777787 9@QBA1E 32 465A6E82 
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ЗБОЙВЕР?ОРЕЗЕГВВТ ЕВ44ЕЗЕ1ЕВЕФВОВВЕВА4Е 
1Е1Е8Е808884844Е<ЕТЕВЕВВ, 3254 

1458 рата 888BES44ESF1F8EBBBB7C18327E7C 
3888883810397Е7С38888810818397Ғ7С3088888 
3818127E7C388808888881810€ , 2832 

1468 рата 0808808812205С288420888184418 
95002284880418242288724884826888018348 
24C124884881888804288888,1785 

1478 DATA 88868888880880010283848010187 
JF 7EFE7ESFO783010000000088000088680000 
808880886608888888818187,675 


1488 рата SF7EFE7E3F878381800888086808 


800080988886808080880600800880103873F7E 
FE7EIF078181805E01018888,1557 

1498 рата B18F8888686F2FI801137211141516 
171718128889808081£475£5888028402081188 
8880018080F88088FG80FCO8,1862 

1588 DATA 8800660685037680018854667070 
7878707847Ғ459787887787878788678798678 
767882787878410659988800, 1744 

1518 рата 728865807188630807508065088988 
08800800808080866080630073800730863006F 
886E0800889822138827252T 1011 

1528 DATA 26268814282F2D38332F2E088826 
2F1288:82127258816882021272134292£2588 
888080888808888880088888,1638 

1528 DATA 8080383225111108B835401828480 
80088880868888808600080688000898008068 
880808880608008888880888,1115 

1548 DATA 888880880808086006600980808086 
888088080080908860868080088080880680009 
880888800866800808888886,0 

1550 рата P880888008008000000060608608 
90002000000000980000009089008800080080 
веввевевевевавевввевовее, в 

1568 DATA 88808008088086806000000660808 
8000888888806800880868008866006808808088 
зеввевевеевевевсесвеевев, 24 

1578 DATA B88880808880086806089880088880 
ввевевоввавевавввевевевевевевввевеваве 
888088888888888888800888,6 

1580 рата 0008090000000800000000808088 
88898808080608008000808088886860220C6C 
есесасесесесесесесесесес, 202 

1598 рата всесесесесвсесесесесвевсесас 
всвсесесесесесесесесесесесесесесесесес 
асесесесесесесесесесесес,548 

i688 рата всесесесасесесесесесесесесес 
всесесесесесесвееевевовевевеваевеевеов 
880600080860808800808888,252 

1618 DATA 088008008000880000008806800096 
99000000000000000000008000009808080008 
вевевввевевеввесесесесес, бе 

1628 DATA всесесесесвсесесесесесесесес 
всесесесасесасесасесесесесесевевввевве 
880080808888088008806080, 336 

1628 DATA 8090600009000200080088008088 
80008080088060000809880800000860000886 
088088886080808088008888,98 


1548 DATA 9000000000008900008008008088 
зевазаг?есесесвсесесесесесесесесесвевс 
всесесесесесесесесесве ес, 258 

1658 DATA всесесесесесесесесесесесесас 
әсесесесесесесесесесесесесесесесесесес 
8С8С8С8С8С8С8С8С8С8С8С8С,548 

1668 рата всесесесесесесевеваввегвевев 
8888828808808808888888088880800088088060 
888688888888888888808088 , 64 

1678 DATA G8808888080088888880900860008 
88888880880888888888888888С09С8С6С8С0С8С 
всесесасесесесесесесесес, 228 

1668 рата есесесесесесесесесесесесесес 
888880888888888088080080088088800008088 
888898080888888888888888 , 158 

1598 BATA 8889888888808888880806006008060 
8088888808888808888808888908880889080008 
888886888888088980800888,6 

1788 рата ввезевезвовеггвсесесесесвсес 
всесес23229 222 1880600 22800 сесасесесвсес 
әсесесесесесесесесесесес,571 

1718 DATA зсесесесвсвесесесесвсесесесве 
асесесесесесесесесесесесесесвесесесасес 
8С8С8888888888088888888868,428 

1728 DATA 8888888888888888888088800080806 
888808880888808088080608860888880688088 


8888088880888880888880890 , в 


1738 рата 86880888888888888888888808C8C 
88800880606808888888668088808888COCOCBC 
асасесагвезсвсас ве 3 C, 216 

1748 DATA звезевезеввевевззвезезовазве 
888888888880888888866068888880888880880 
e88888808688888888869808,8 

i758 DATA 88888668888088880808088080880 
8888880888808808880888080888888088808806 
8888888808228C8C8C8COC8C , 186 

1768 DATA 8С22888888008888888888728С8С 
всесесасесесесесесесесесесесесесесвсес 
2119989898988880870098822,527 

i778 рата всесесесесесесесесесесесасвс 
всесесесесесесввесесвеввезвевазезевева 
808888888888888888008008,276 


888080880888888889088888,119 

1648 рата 68 888688888680888888880888888888 
8808800880808808880808808888806088С00Сс7486 
9888888800888888788С8С68С,505 

1858 DATA всесесесесесесесесесесесесес 
8С8С6С1088888888808888080808880886888088688 
$880886888804£8888080898, 188 

1868 рата 8888888808860888888806808888 
888088088808886880880888888088888888608 
808088888888988880880688,8 

i878 рата вевечковевеввезезевевезвазев 
овасевеввевовевехвесвсесвсесвевовода22 
всесесесесесесесесесесес, 256 

1888 DATA всесес?тевевзвесесесесесвсес 
зстовевезвсвсесвсесесесасвсесесвсвсесвв 
зезеваветвесесесоведявев, 451 

1828 рата 808808888888800888808888890888 
8888880888808888880008888880860888080€ 
086888888088888088888888 , в 

1388 рата ввевевеввеввввевевевевевевве 
зезесесвевезезвезевеввевовевевсесесесес 
всесесесесесесесесесесес,228 

1918 рата 8C8C8COCIAB880888888800888888 
888888880888888888088150С10080868008088 
88890808888088888688080888,1719 

i928 рата 88608880000880886868888008868 
8888080808808888888888808080898608808818 
8C148880188C1C1D1E88881B,218 

1958 рата таееереввезезет весесесвсесес 
1488088888228С8С9С8С8С2380088228Сесасас 
2388881B8C8COCBCBCBCBCBEC, 5:1 

1948 рата всесевевасесесесесесесесесес 
есесесесвазвесесесасесесесвевввезевевв 
888888888888888888888888, 276 

i958 рата 8888888689880880880880806988888 
880808888808080888880880808688008000088 
888888888888888888008088,8. 

i968 рата 888CBC70080888880888888808878 
всесесасесесесесесесесесесесесесесесес 
осесестловевевевевевевев, 559 

1978 рата зевевезвззвеве: весасесесестай 
888800000008008800000080000800000000088 


1788 DATA 8860888080000880008080880080608 888088888888880888888880,113 
888868888908808880800800808808000000006 1388 рата 4=веевевевевевевевевевеввеев 


8688808888888088808888COC,24 


8821281F8C8CBCiA1BBCOCBCBCOCOD188COCIA 


1798 DATA 9008008000080808008808000000 OOSOBOOBIBBCOCECOCOCOCOC, 511 
адесесесесесесесесасесесесесесасесевев 1928 DATA BCRCÓCOCIABO228C242526888888 


900000000888090000080889, 362 


веоа228022808001восесесесесесвсесесвсес 


1800 DATA вевеввававвввввввваввввввава оеевесесесесасевсесесасес, 591 
888008888888808008808088888080888080800 2888 HATA всесесесевеевсесесесвсесесвв 


8888888888808888888088806,06 


1818 рата 88а8вввгевгвевввгеввввеввевев 08908880888898888880888888,117 
8888888888888080888888880292827728086886 2818 DATA 8808888088888680888888808008 


88888888888818158808228C , 288 


8880088888888888808888880808908809808888C 


1828 DATA acececececacececececacececec осевеваввеваевеввовевеве, 24 
acacacec2i888000800000000807C000880220C 2828 рата есвсесесесесесесесесесесесес 


ececacecacacacacecececac,565 


всесесесесесесесеставвевоввовевооевево 


1858 рата есесесесес?твовевсесвевавваз обевва4Етвесесесесесесес, 491 
88088008008808090808808000808800000806009 2838 DATA 1CID1F8888888888808808008888 
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RESCUE CON'T 


G888800888008080080088800821281F8COCiA 
888888808880880880804Ғ18,528 

2840 рата всесесесесесесесесесвсесасес 
2238 DATA зсесевввевевеввевавееввевеве 


* 
ЗАВАЉЕ 













E 
oP 8 40845 Ға тъ n» Tov. „У 


вервевввевевевевевеввеве, 24 
7248 DATA веввевававвввезеввевевезвввв 
вввевваввевеввавазевавававевазевевавев 
вевсесесесесесесесесесес, 152 

2258 DATA всесесасесесасесесесесесесес 
acacacececececececececececacececececec 
acececececacecececacecec, 548 

2268 рата всесвсесесвевсесесесвсесасес 
acacececececececececececacecececececec 
acececececececacecececec, 548 

2278 DATA әсесесесесесесесесесесесесес 
aceceacecececececeacecececececececececec 
всесесвсесесесесесесесас, 540 

2288 DATA Bcececececececececececececec 





acececacaecinzi201recaececaececacecacecac 
8С8С80140888888888188С14,527 

2858 ВАТА 888088888888188COCOCBCOCOCBC 
acecacecacaasgecacacecacececececacacac 


· всесвеввесесесесесесесве, 421 


1868 рата 88888888888880888888808868806 
888808888680806600006600000608006800868 
8088888888888888888888888, 8 

2878 DATA 88888888860800800800888608008 
888888888С8С74888888888888088088788С68С 
всесасесесесесесесесесес, 457 

2888 рата есесесесесесесесесесіалвеввав 
ввввзвевзввезетвесесесасесесесвсесвсвс 
8C18084FB888886800888888,421 

2838 DATA 8880088086888804F808880888188C 
aecaecacecaciciDiF888868088008188COCOCOC 
всесесасесесесесесесесес,482 

2188 рата өсесесесесесесесесесесесесес 
8С8С8С8С8С8С8С8С8С148821201ғ6С8С8С1488 


Bcecacecececacecececececacacecacececac 1весесесесесесесесвсесес, 613 


98808888888800888808800888,595 

2238 DATA 888888888888888888868088808888 
)8888888060080808600800880000880608088 
880800808008888808888888089,8 

1588 рата веввввеввевевгвовевевегеввев 
звввевевавевесесесесесасесесесесесесес 
всесесесесвевеввевеввевв, 216 

2318 DATA 00881С681С0ЕВЕ7Е:С001С666066 
ТЕТЕХС883С6666667Е7Е3С887С6666 70 7EG E66 
887E6876687E7E7E887E687C, 3732 

2328 DATA 7978787888666666667Е7Е7Е8858 
5868687E7E7E88666666667E1C188018168818 
161808881F 84 4E XF1FOEGBGFF, 3210 


2118 BATA осесесесесвевевсесесесесесес 
8С8С9С9С8С8С2398888С8С8С8С8С8С8С088886 
8888880888888089888888868,335 

2128 DATA 8888880800088080068088800880 
88808888888888808888088808808888880088 
8888888888888888088868888,8 

2118 DATA 888888808С8С88880808080000868 
вовевевсесесесесесесесесесесесесесесес 
асесесасесесесесесевевве, 524 

2148 рата вевевевевеветвесвсесесесесес 
8С8С8С8С8С8С8С8С8С148088888888088008888 
4E21281FBCBCICIDIE188CBC, 581 

2158 рата асесесесесесесесій4Еівесесес 


2338 DATA ҒЕҒҒҒҒЕҒҒЕЕҒҒЕ?Ғ?ҒЗЕЗЕІС1С88 всесесесасесесесесесесесесесесасвсесес 


3888101818287CFEFEG880088FF 808888000030 
5Е75667Е7Е2С881853818187Е,4182 


acacaecacacacecacecacacac , 635 
2168 рата всесесесесесесесесвсесесесес 


?348 рата 7E7E881C6680187E7E7E887E188C всесесавсесвсвсесесесесесесесесесесесес 
%С557Е2С888С1С226С7Е7Е9С887Е687С86567Е асесесевевесесесесес2200,527 


2С882С587С557Е7Е3С807Е86,5228 


2178 DATA вевевевввегоевев: весесесесес 


#158 DATA 8C18183838883C663COG7E7E 3C80 всесвввевевезвевевеевовезаведезвоввево 
ГСББТЕВБОЕТСТВВОСВЕВЕВЕВЕСЕЕРРВ 185878Е 8888888088888888888888868,236 


ЦЕЗЕ?ЕЕЕЕВЕСЕРРЕРРЕРЕЕЕЕ „5581 


2180 DATA 0809000000088088088080090888 


2168 DATA 888888ЕЯГЕРГЕГРЕГВООВаВЗВв8Сс8 8008888888088880808888008880088880880098 
FBFFB73FFFFFFFFFFFFF8888818F7FFFFFFF880 880088С8С08888808088888888088,24 


98880888031FFFFF7F3F1F8F,52178 


2198 рата Вевевевсесесесесесесесесесес 


2178 DATA 878381FFFEFCFSFBEBCBBOFFFFFF всесесесесесевсесесесесесесес сло тевачЕ 
ЕРЕРЕЕЕСЕВЕЕЕРЕЕРЕЕРОВОВОВВЕРЕЗСВ888988 вег170170 сесесесесесесес, 657 


GOOF FFFFFFFFFFFIFO7FFFF , 8882 


1788 рата всесесесесесвсесесвсесесвсес 


2388 DATA ЕЕ7Е020100097742030800090088 эсесесесесесесесесесесесесесесесесесес 
30000000800077770000009080018101888096 зсесесесесесесесасесесвс, 548 


08888811FF86888888088111,1458 


2218 DATA всесесесасесесесесесесасесес 


2338 DATA FFCOCaCacacirFi3FFFF88888868FB »cacececacacacacacacacacacacacacacacac 
FBFPFFB8B888B8O88I77FFFFB80888888287CFFFFF scececececececececececac, 548 


FFSEL@4i1 EBFFFFFFFF7F 3098, 6546 


2220 рата өсесесесесесесесесесесесесес 


2488 рата COE7FFFFFFESCIODIDBFDFCFFFFFC зсесесесесасесесевввевовавввовввовавев 
ҒӘҒВҒЕВ287ҒҒ88888088888886ҒҒ0888888808 завевегсевівесесесесесес, 467 


8880ҒҒ7?Ғ484141414181ҒҒҒҒ,6477 


2418 DATA XFFFFFFFFFFFFFCOFBFCFFFCFOCB 
88BiBF3FFFIFOFOIOGFF7E7ESCICIS18880818 


183C3C7E7EFF888888888880, 4283 
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ANALOG INPUT DEMO 
FROM AUGUST 


ВЕН ANALOG INPUT РЕМО 

OPEN #2,4,8,"К: 

58, 2116 

216; ANALOG INPUT DEMO 
796; "1. TEMPERATURE 
216; °Z2. LIGHT LEVEL 

715; "5. HUMIDITY 

716; :?u6; PLUG SENSOR INTO PINS 7 À 
9 OF JACK 1 

GETHZ,A 

7865; à- 48 

FOR TIME-1 TO 898: МЕКТ ТІНЕ 
ON й-48 GOTO 196,268,388 
6.239 

6. 2+16 

РОКЕ 752,1 

Р-РЕЕК (624) 

РО5.8,8 

Т- :38-Р)#18/13174 

216; "ТНЕ TEMPERATURE 15 
716; INT(T) ;" DEGREES 

IF РЕЕК (764) 52255 THEN GET #2,8:6. 


18 
15 


i8 
48 
58 
68 
62 
ND 
79 
88 
28 
35 
38 
188 
118 
128 
125 
138 
148 
158 
158 
28 
178 6.128 
288 
218 
228 
225 
238 
255 
248 
258 
28 
268 
278 
288 
238 
388 
318 


68.2+16 

РОКЕ 752,1 

P-PEEK (6243 

РО5.8,8 

ТИ5;"ТНЕ LIGHT LEVEL 15 
L-188-PX188/7228 
78H; INT (L) ;" 

IF PEEK(764) (2255 THEN GET Н2,й:6. 


6.128 
GR.2*16 
POKE 752,1 
Р-РЕЕК (624) 
6Я.2+16 
РОКЕ. 752,1 
118 Р-РЕЕК (624) 
325 РО5.8,8 
$38 7HO; “THE HUMIDITY 15 
335 H-188-PX188/228 
348 71b; INT (i) ;" 
158 IF РЕЕК (764) (2255 THEN GET Н2,й:6. 
28 
368 6.128 
999 68.1+16 
1888 7H6;"PARTS LIST": 7206; : 796; "TEMPER 
ATURE SENSOR: РЕКНАЇ. THERMISTOR G 
A45P2,98888 OHMS 
1818 216; "АТ 25 DEGREES C. 
1828 786;:7Hb;"LIGHT SENSOR: 

GENERAL ELECTRIC Х-6 PHOTOCELL 
1818 206; : 786; HUMIDITY SENSOR: 
DEVRY INDUSTRIES HYGROPAK MODEL На 


1848 6.1848 








PROC ІМІТО 


¥ 

CARD A 

00 
FIRSTSCREEN С) 
GETKEY 02 


IF KEY-21 THEN TYP-'B ЕТ 
IF KEY-57 THEM ТУР-'Н FI 


UNTIL TYP-'B OR TYP-'H 


00 
ро 
РЕТИТ ("Мом мапу items do "3 
PRINT("you want to sort") 
РЕТИТЕ(" м) | 
РЕТИТЕС" и) 
РЕТИТЕ ("Мах = 999, Minimum = 18 
чу 
PRINTE(" ") 
РЫТ(' 27} — N-INPUTCO 
UNTIL N)9 AND и<1900 
00 


ӨРЕН (2,7): NUMLGGS. RAN", 4,8) 
;PENCS, пр: NIIMI8OSB.SRT",4,8) 
FOR 121 TO И 
00 

A-INPUTCDP (32 

5(1)=8 
09 
CLOSE (23 


ТТИЕВ () 
RETURN 


PEIHGHEOHEBHHEHBOHHHOBHHEOHOOSHOBHOOHO 
* 


PROC PRNTSO HPRINT RESULTS 
PIBHERGHHEOOBHEHOHOBHEHOOOEEHEHIHOOÓOBHE 
* 

CARD TEMP 

GETKEY (3 


FOR Ісі TO N 
00 


SORT ACTION 


IF KEY-28 THEN EXIT FI 


PRIBICII) 
PRINT (">") 
ТЕМР-5 (1) 
РЕТИТСЕ (TEMP) 
00 
RETHRN 


j BHBHEBHOBHHEHHOOOBHHOHOBHEHHOHHBIEE 
ж 

PROC MAING) 
„ававевненвавававевававенавазвевававевне 
* 


po 
ІНІТО 


IF ТУР-'В THEN BUBBLE ЕТ 
IF TYP='H THEN HEAP() — FI 


TIMER () 
РОКЕ (752,1) 
PRINTEC"' 79 
PRINTE(" Press any key to see list") 
Printet” Press ESC to exit" 
PRNTS C) 


IF КЕУ-28 THEM EXIT FI 


00 


RETURK 


PROOFER IN LOGO 


TO МАТИ. РЕОС 

MAKE "LIST RL 

IF С FIRST :LIST 2 = "TO (MAKE "TITLE 
FIRST BF :LIST MAKE "INPUTS BF BF :LI5 
ТЈ 

IF (FIRST 
OP] 

IF WOT («FIRST :LIST ) = “TO [MAKE "INS 
TRUCTIONS LPUT :LIST : INSTRUCTIONS] 
MAKE "SUMSLTST SE :5UMSLIST ADDSUMS CH 
KLINE :LIST 

ТУРЕ (21 HMAIN.PROC 

END 


LIST } = "END IFINISH.UP ST 
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TO CHKLINE :LIST 

IF EMPTYP :LIST ГОР (11 

IF LISTP FIRST :LIST ГОР SE CHKLINE FI 
RST :LIST CHKLINE BF :1 1571 

ОР SE CHKHRD FIRST :LIST CHKLIME BF :L 
IST 

END 


TO DIGITI :WiMBER 

IF С COUNT :NUMBER ) < 4 ГОР :NUMBERI 
OP С MORD LAST ВЕ BL :NUMBER LAST BL : 
HUMBER LAST :МИМВЕЋ ) 

END 


TO CHKSUM :NUMBER : COUNT 
OP :COUNT % :NUMBER 
END 


то CHKWRE : WORD 

IF EMPTYP :WORD ГОР 83 

OP DIGITI SUM CHKSUM ASCII LAST : WORD 
COUNT : WORD CHKHRD BL : WORD 

END 


TO ADDSUMS :LIST 

IF EMPTYP :LIST ГОР 81 

OP DIGITS SUM CHKSUM LAST :LIST COUNT 
:LIST #665045 BL :LIST 

END 


TO FINISH. UP 

DEFINE : TITLE LIST : INPUTS :INSTRUCTIO 
45 

MAKE THING "TITLE LIST ADDSUMS 
ST :5UMSLIST 

CT TYPE Гапу more procedures to enter? 
1 

MAKE "LIST RC PR :LIST 

If :LIST = "Y (LOGO. PROOF] 

PR [1] TYPE (Output to Printer?] 

MAKE "LIST RC PR :LIST 

IF ИГТ = "Y [COPYON] 

ERN [TITLE LIST INSTRUCTIONS! 

ERN [INPUTS SUMSLIST) 

PR [J] PONS PR (1 COPYOFF 

TYPE [Bo you want to quit now?] 

MAKE "LIST RC PR :LIST 

IF ИГТ = "М (LOGO. PROOF] 

ER [CHKHRD CHKSUM DIGITS 

ER ГСНКЕТИЕ ADDSUMS MAIN.PROCI 

ER [LOGO.PROOF FINISH. UPI 

ERNS RECYCLE 

END 


:9HMSLI 


TO L0GO.PROUF 

MAKE "INSTRUCTIONS ІЗ 

MAKE "SUMSLIST [J 

CT PR [Enter your procedure:] PR Г) 


PROOFER CON'T 


ТУРЕ 121 MAIN. PROC 
END 


то START 

СТ REPEAT 15 (РЯ (11 

PR ГІТНЕ LOGO PROOFREADER|1 

PR (1 PRE 

PR [By Dave arlington} 

PR (for ATARI Explorer] 

REPEAT 18 EPR [7] 

PR ги(ргезс апу key to continue ,#) 1 
MAKE "LIST RC ER “START RECYCLE 
LOGO. PROOF 

END 


TO COPYON 
SETNRITE "P: 
END 


TO COPYOFF 
SETWRITE 0 
END 


SWITCH 2.9 


REM Modification to 005 2.5 to 
REM store DUP.SYS and MEM. SAV 
REM in the bank Switch RAH 

REM behind the 05 ROM frem 20008 
REM to SFSff 

REM 

REM This mod for 64K KL'S only 
REM Adapted from ANALOG #24 by 
REM Robert Luce 

REM 


REM заевевевевееневевнавневанененне 
REM written by Alec Benson 6/85 
REM from ADELAIDE Atari 

REM Club, Box 333, Norwood, 

REM Australia 5.8. 5867 Aug "85 

14 REM зенезвенвавевенененеееенанеєнє 
#5 REM REPRINTED ACE Newsletter 

41 REM 3662 Vine Maple, Eugene, OR 
188 CH-8:0IM 45 (5393 

195 ? :? “Reading рата...." 

118 FOR Ісі TO 339 

128 READ А 

128 ск-ск+а 

148 ASCLENCAS) +13 -СНВ5 (А) 

158 NEXT I 

168 IF CKO 41872 THEN 2 "ERROR IN BATA 
STATEMENTS-CHECK TYPING": END 

178 OPEN #1,8,8, "В:РАТСН25.08 J' : PRINT 

Hi AS: CLOSE #1 

188 7 ;? :? "D:PATCH25,08.J CREATED: ERD 


1868 DATA 255,255,221,28,235,28,52,192 


1618 
1828 


1818 
16 
1948 
? 
1958 
1868 
5 
1878 
1888 
1898 
56 
1188 
1118 
1118 
1138 


1148 
1158 
1168 


1178 
13 

1188 
1198 


1208 
1218 
8 
1228 
i- 
1236 
1248 
1258 
1268 


1278 
1288 
1238 
1388 
1318 
1328 
215 
1330 
54 
1348 
53 
1158 
1368 
13 
1376 
3 
1388 
1138 
1488 
254 
1418 
1420 


рата 
рата 


рата 


рата 


рата 
рата 


DATA 
рата 
рата 


рата 
рата 
рата 
DATA 


DATA 
рата 
BATA 
BATA 


рата 
рата 


рата 
рата 


рата 


дата 


BATA 
BATA 
рата 


рата 
рата 
рата 
рата 
рата 
рата 


рата 


рата 


рата 
рата 


рата 
рата 
рата 
рата 


рата 
рата 


21,78,23,138,25,52,65,24 
159,8,131,212,131,214,169,23 


111,215,169,192,131,213,162, 
12,119,24,169,216,133,213,16 


7,32,149,24,32,78,24,26 
169,8,135,212,169,224,155,21 


160,8,162,3,177,212,72,32 
85, 24,104,145,212,32, 78,24 
200, 208,241,230, 213, 202,16,2 


36,214,182,21,0, 24,248,753 
32, 70,23, 206,158, 23, 48,65 
32,108,21,32,105,23,169,255 
141,158,21,141,157,21,162,16 


169,47,157,68,3,169,24,157 
69,2,32,164,21,32,85,24 
162,21,169,8,132,212,133,214 


169,31,133,215,162,228,135,2 


32,119,24,52,70,24,169,8 
141,157,21,141,158,21,76,146 


25,19,24,19,24,32,85,24 
169,8,115,214,113,212,169,27 


133,215,169, 31,133,213, 162,2 


208, 18,58,24,146,24,32,119 
24, 32, 70, 24,206,157, 21, 76 
152,32, 32,102, 24,88, 169,112 
141,14,212,169,18,141,14,218 


96,178,159,8,141,14,212,141 
14,218,173,1,211,41,254,76 
187,24,1731,1,211,9,1,141 
1,211,96,234,234,234,214, 32 
156,25,96,168,8,177,214,145 
212,288,288, 249, 238,213,238, 


282,288,242,96,214,234,234,2 
234,234,234,234,234,234,254, 


25,189,25,32,85,24,162,8 
135,212,153,214,169,29,1355,2 


169,192,155,215,162,16,52,11 


24,169,216,171,215,162,7,31 
119,24,32,78,24,96,234,234 
214,234,234,234,234,214,214, 


214,214,49,11,53,31,178,174 
181,216,284 
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FLOATING PT. 
FROM LAST MONTH: 


BY BARKLEY 


18 /¥Floating Point üveragesk/ 

78 /Xfirst try with Acet Р.Р. 

z8 maint) $¢ 

48 int 1, аче; 

58 char xstr,a[61,sumI61,nI6J ,n[61; 


58  atof(sus,"8.80"); 

78 fortiz8;i(195;*$i1 % 

89 рихсваг с": "3; 

85 9215 (5172; 

98 atof(a,str?; 

9188 faddta, SUR, sum ; 

2165 printf" у9, Е “9.3f\n", 
а, SUM) ; 

9110 $) 

8128 | itofti,nl; 

81148 —fdiv(sum,n,m); 

3148 аче= #101 (м); 

8158 printf(" n; | SUM: ауе: п" ; 
$168 ргіпі ("24 75,24 15,241", i; SUR, 
я); 

8178 getkeyt); 

3188 5) 


MEETING 
WED. OCT.-9TH 
УЗОРУ, 
ФЕРИ EUGENE 
HIGH 
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LOGO PROOFREADER 


(Reprint: POKEY, August, 1985) 

With the introduction of the amazing new 520ST, Atari has achieved 
another first. The 52057 is the first inexpensive personal computer to 
be shipped with LOGO as the language of choice. This is a very exciting 
and innovative move. In the coming months, many interesting LOGO 
projects and programs will be published in the Atari Explorer. One side 
benefit to this is that many of these programs will run with only minor 
changes on the 400/800/XL/XE series of Atari computers equipped with 
the LOGO language. The LOGO proofreader is one of these programs. 

Almost all computer publications which feature type-in BASIC 
listings supply a proofreading program which checks your typing. The 
LOGO Proofreader serves exactly the same purpose for type-in LOGO 
listings. It provides an easy-to-use checksum for each procedure you 
enter into the workspace, saving a lot of debugging time. All future LOGO 
listings published in POKEY will have Proofreader checksums which you 
can use to check your typing. 

Using the Proofreader: Very carefully type the listing. (After all, 
you don't have the proofreader yet!) When using the 520ST to type in 
this listing | recommend clicking the LOGO text window to full screen. 
Then, before doing anything else, save your workspace to disk under the 
filename LPROOF. Later we'll show you how to use the Proofreader to 
check itself. 

To begin the program, type START. After a short title screen, you 
will be prompted to being entering a procedure. Just type it in as you 
normally would. The Proofreader checks each line as you type it. As an 
example we'll use probably the most famous LOGO procedure, SQUARE. 

Type this in: 

TO SQUARE :SIDE 

REPEAT 4 [FD :SIDE RT 90] 

END 

When you type END and press RETURN, the Proofreader will define 
the SOUARE procedure and ask if you have any more procedures to enter. 
In this example we'll reply N. After asking whether you also want output 
to the printer, the LOGO Proofreader will print the checksums for all the 
procedures you have entered. In this example the Proofreader will print: 
"MAKE "SQUARE [980 [590 695] ]" 

The first number in the checksum is ALWAYS the checksum for the 
entire procedure. In this case, 980. If the number matches, the procedure 
has been typed correctly and you need check no further. 

If, on the other hand, you get something like: "MAKE "SQUARE [970 
[590 69011” then you will have to check the following list of numbers 
to determine which line was typed incorrectly. In this case, the second 
line was typed incorrectly. Each number in the list corresponds to each 
line in the procedure, including the title line but excluding the END line. 
The LOGO Proofreader assumes you will always type the last line (END) 
in a procedure definition correctly. It is never included in the checksum 
values. 

After you have finished entering procedures and have determined 
where all your typing mistakes are, you will have two choices. You will 
be asked if you wish to quit now. If you answer N, you will be returned 
to the main program where you may either enter some more procedures 
or re-type the ones where you have made mistakes. If you answer Y to 
quitting the LOGO Proofreader will erase itself and all variables including 
the checksums, leaving only the procedures you have entered within the 
program. After correcting any mistakes using the LOGO editor, you can 
then save the entire workspace to disk. 

How it Works 

If all you are interested in is having the program work, you need read 
no further. The following information is intended for those who want 
to know some of the finer points of using list processing in LOGO. One 
important point which should be made is this: Yes, Virginia, it is possible 
to write utility and applications programs in LOGO. 

Solving a problem in LOGO can be easy if you approach it in the right 
way. Long before electron microscopes were invented, Greek 
philosophers discussed the existence of the atom. They theorized that 
if one took a piece of cloth and kept ripping it in half, that eventually 
you would get a piece so small that it could not be divided further. The 
language which LOGO is descended from, LISP, also refers to atoms. 
Here it is used to describe a piece of a program which cannot be broken 
down any further. From these small pieces we can construct a larger 
problem solving program. 

LOGO works much the same way. In the Proofreader program, the 
smallest procedure is CHKSUM, which outputs the ASCII value of a letter 
times its position in a word. CHKWRD adds these sums together to get 
a unique value for each word. For instance, CHKWRD "ТНЕ outputs 1 
times the ASCII value of T plus 2 times the ASCII value of H plus 3 times 
the ASCII value of E. If we know all the right letters are in the right places, 
then the word must be spelled correctly. 


CHKLINE takes the list the user types in and breaks it up into tits 
individual words to apss on to CHKWRD. CHKLINE then outputs a list 
of all the checksums to ADDSUMS. If we know all *he words are spelled 
right and in the right places, then the line must be typed correctly. If 
all the lines are typed correctly and in the right place, then the procedure 
must be typed correctly. This is a very good example of solving a problem 
in LOGO. Take a very small problem (Is the letter in the right place?) and 
use it to build a foundation to solve a large problem (Is the procedure 
typed correctly? ). 

The Proofreader also uses another popular LOGO technique called 
recursion. a LOGO can call any other procedure, even itself. Recursion 
is when a LOGO procedure calls itself to help solve a problem. There 
are generally two types of recursive calles. Tail recursion is where the 
very last line in a procedure is a call to itself. This is very similar to BASIC 
looping. The procedure keeps looping back to itself until some condition 
is met to stop it. In the procedure MAIN.PROC, it keeps going back for 
more lines from the user until they type END, at which time it calls the 
FINISH.UP procedure and stops. 

A more complicated type of recursion occurs in the procedure 
CHKLINE. Since CHKWRD can only take a word as its input, CHKLINE 
must break up a list into its individual words. But a list can contain other 
lists as well as words. We need a procedure which can break those lists 
inside lists into words. Sound familiar? That's the CHKLINE procedure! 
Therefore the second line of CHKLINE checks to see if the first element 
is yet another list. If it is, it calls itself to break up that list before it 
continues. This way, CHKLINE can take the most complicated of lists 
and break it into single words. 

The Proofreader uses other techniques which could take up a whole 
article by themselves. The use of Global vs. Local variables, for instance. 
The Proofreader uses global variables only in the main loops near top 
level where user input is needed. All other values are passed through 
the various procedures locally, where they only exist as long as the 
procedure is running. This way the program has to only erase a few global 
variables when it finishes up. 

| hope you find the LOGO Proofreader a valuable addition to your 
library, both as a useful utility and as a lesson in LOGO programming. 


WALDEN TEACHES C 


In this article | will talk about two C statements which are very 
powerful, yet difficult to understand, especially if you are used to Basic. 
Elsewhere in this issue is a program listing called STUDY.C which 
contains the examples | will refer to. 

The Basic FOR statement contains three parts: The initialization 
where the variable is assigned a value, the test where the variable is 
checked against some parameter, and the STEP value to increase the 
variable. The C for( statement also has 3 parts, but unlike Basic, they 
are totally unrelated to each other. 

The variable you initialize does not have have to be either the variable 
you test or the one you change. Here's how C handles the 3 parts. The 
first part is used to initalize any number of variables, all separated by 
commas. The end of the first section is set off by a semi-colon. The 
variables will all be initialized at the beginning of the loop. 

The next section is the test. You may test anything; there is no 
requirement for the test have anything to do with the initialization. If 
the test is true, then control will be passed to the body of the loop, 
otherwise control jumps out of the loop. The third section is performed 
at the end of the loop. In this section you can assign values, change 
values, or even leave it blank and do nothing. The variables you change 


' do not have to have anything to do with either of the first two sections. 


Take a look at the for( examples given in STUDY.C 

The second statement for which there is no counterpart in Basic, 
is the ?: statement. Let's say you wanted to assign Z the value of A or 
B, whichever is greater. If A is greater than B then Z will equal A, else 
Z will equal B. Normally this requires two statements. The ?: statement 
allows you to test a value and give one of two results depending on 
whether the test value is true or false (I know, it sounds confusing - take 
a look at the example in STUDY.C). Here's another example. Say you want 
to print how many players there are in a game. If only one, then the word 
"players" should be singular, otherwise it should have the ending "5". 
By using the 2: statement we can print out the ending "5" only if there 
is more than one player. You could also use the same routine for printing 
out verbs like “is” and “аге” dependent on how many objects you аге 
describing. Look at STUDY.C for examples. 

These two statements provide two examples of how C provides 
shortcuts for commonly used program statements. It takes a while to 
get used to them, but once you do you may end up wondering how you 


lived without them. 
— Ralph Walden 


MENU.C 


MENU. will list a menu of all of the “СОМ” programs on a disk, 
and allow you to run any of them by pressing the corresponding letter. 
A good use for this program is to end your C programs by chaining to 
MENU.COM. This way, the user can always have a menu of programs 
to choose from. The only disadvantage is that you cannot pass 
parameters to the program being run by MENU. 

The listing of the program has been modified somewhat to improve 
readability. For example, the first char declaration should be typed in as 
one line rather than the two shown. There are several similar lines which 
are printed as two lines, but which you can type in as one line. The line 
which searches for CC.COM by using the index() function can be followed 
with any number of “else if(" lines to search for and ignore any COM 
files you don’t want listed in the menu. 

For those of you who are fairly new to C, | draw your attention to 
a couple of interesting lines. Look at the fori loop underneath the "Ргіпі 
all filenames” comment. This for( loop initializes, checks, and updates 
two variables in a single statement. Imagine doing this in Basic! Also 
look at the while( statement 4 lines from the bottom. With one statement 
we input a character from the keyboard, change it to uppercase if needed, 
make sure it’s alphabetic and that it’s a viable menu option, and keep 
trying until we get a correct response. This is а good example of C’s ability 
to provide programming "shortcuts"; replacing with one line what 
normally takes several lines. 


A 'C' NOTE 

For the past few weeks I’ve used two new "С"Ч апдиаде products 
which look very nice. Although | haven't yet had time to do a complete 
review, some ACE members might want to look at these new "C" tools 
for themselves while | do my homework for a review. 

Let's look first at "C Self-Study Guide" by Jack Purdum (1985, Que 
Publishing, Inc., 7999 Knue Rd., Indianapolis, IN, 46250 $16.95). This 
250 page soft-bound volume is by far the most cost-effective way l've 
found for learning to use C. Other C books give you rules, syntax, and 
finished examples of C programming. With my slow-motion brain, all of 
this seems to produce one “Gotcha!” after another." What, you didn't 
notice that comma ... extra space ... missing quote? Hah!" 

Purdum does it MY way, instead. Lots of examples of C functions, 
many WITH ERRORS ... "What's wrong with this line?" (You're told 
what page holds the answer). That's the way | spend most of my 
programming time, and the way | really learn — by falling down a lot, 
and getting up. Not by watching others walk, or run. Purdum also has 
a super idea which is new to me: He puts the questions for each chapter 
IN FRONT where you can see how much you already know — or don't 
know — about Operators, Variables, Loops, Pointers, etc. This makes it 
simple to skip over familiar ground, and gives me new incentive to identify 
and fill gaps in my retained knowledge, not merely review the text | just 
finished reading. 

Now a second offering: DVC/65, the best-yet version of C for Atari. 
It’s by Ralph Walden, the author of ACE-C. This brand-new Freeware 
product is much more than just the C Development Compiler it claims 
to ђе; It’s a whole programming system carefully crafted for the Atari, 
with its own special-purpose DOS, a superb editor, the most complete 
version of C for Atari which | have yet seen, and, best of all perhaps, 
62 pages of very usable documentation. So far it has worked smoothly 
and easily, with convenient editing, fast assemblies, nearly automatic 
linking and respectable running times. 

You get the normal С /О functions, including scanf() — at last! — 
as well as printf(); special Atari floating point functions; an assembly 
language interface; great graphics utilities; RAMdisk for XE and Mosaic 
Board owners. Plus lots of sample C source programs (20+), demos, 
and special goodies for you MAC-65 and ACTION fans! 

DVC/65 is issued as Freeware, which means the disk can be freely 
copied and distributed, while the documentation is coyrighted and 
available only from the author, for $35 (write to Ralph E. Walden, 1821 
Jefferson, Eugene, OR 97402). 

So there you have it: early notice about two promising additions to 
your Atari C library. Next time ГИ tell you what | learn about both, warts 
and а". C ya then! 


— Ralph Walden 


— Dick Barkley 


RESCUE MISSION 


by Geoffrey Thompson 
THE GAME: 

You are flying an unarmed helicopter carrying vital medical supples 
through lengthy caverns in order to reach your agents who have been 
wounded behind enemy lines. The caverns are well protected with anti- 
aircraft batteries, space mines, rockets and lasers so the mission is 
dangerous and difficult and the caverns are lengthy. The only aid you 
have apart from your own skill is a radar scanner at the top of the screen 
to show your position in the cavern. The joystick controls the helicopter 
in any direction and you Раме three helicopters, each with a limited supply 
of fuel. The space bar will pause the game at any point. 

ТУР а IT IN: 

Type as listed. Make sure you save a copy of the program before you 
RUN it. Before you type Run, ensure you have a formatted disk in drive 
1. The program will check the data line by line and write a file to disk 
with the filename ‘D:RESCUE.DAT’ and then ask you if you are ready 
to run. А 'Y' will begin the game. To RUN the program subsequently, type 
in the short program and save with whatever filename you wish on the 
same disk as ‘D:RESCUE.DAT’. You can then RUN the program by typing 
RUN"'D:(your filename)”. 

— Nora Young 





DOS 2.5XL 


(Reprint: Feedback, August, 1985, Adelaide, Australia) 

When used with the XE computers, DOS 2.5 can make use of the 
extra memory available as a ramdisk. In addition, both DUP.SYS and 
MEM.SAV are stored on this ramdisk which allows instant access to DOS 
and automatic saving of any program in memory without a (normal) disk 
access. 

This latter feature can be implemented on XL machines with 64k 
of memory by using the RAM behind the operating system ROMs. A 
program to do this with DOS 2.0S was published in number 24 of Analog 
magazine. The program presented here makes the same modification to 
DOS 2:5. 

Type in the program and save it. Now RUN the program and, if you 
have typed it in correctly, you will get the message that the file 
PATCH25.0BJ has been created. If you did not boot your system using 
DOS 2.5, do so now. go to the DOS menu and select option L. In response 
to the file name request, type PATCH25.OBJ. 

To save the patched version of DOS 2.5 use the H option. Now reboot 
your system using the disk containing your patched version of DOS and 
away you go. 

— Alec Benson 
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DIGITAL LOGIC 


(Reprint: BRACE, July, 1985) 

Looking for something to do with your 520ST when ... LOGO is 
the only language installed? Well, if you enjoy tinkering with electronics 
as | do, then you might enjoy this neat little project: A low cost, primitive 
(but effective) software circuit simulator. Due to time (and space) 
considerations this article will only outline the procedure and give one 
or two short examples. To expand this idea into a full-blown program 
is going to require a little ingenuity and work on your part, but the results 
should be worth it. 

First of all, | should probably discuss just what a circuit simulator 
does. Loosely defined, it is a body of software which uses math (in this 
case boolean logic) to predict how an electronic circuit will behave. It 
is driven by inputs (let’s see, if we apply a logic one here and a logic 
zero here ... ) and calculates the outputs of the circuit ( ... what 
should we read at this output pin?). With a well-designed simulator you 
can spend afew minutes with your Atari finding out if a new circuit design 


is going to work the way you think it will instead of hours wire-wrapping, · 


perhaps in vain. Well, ok. There might be a slight exaggeration there. 
Anyway, now that you have an idea of what a simulator does, let’s delve 
into how it works. 

LOGO turns out to be a perfect language with which to implement 
a logic simulator because of the unique way in which it handles boolean 
logic. Where almost all other languages use zero to equal false and any 
number other than zero equals true, LOGO doesn’t use numbers at all. 
TRUE and FALSE are special inputs used only with the boolean operators 
in LOGO. In addition, LOGO has what are known as predicates. These 
are special primitives, or procedures, which test for a specific condition. 
If the condition exists, a predicate will output TRUE, if not it will output 
FALSE. There are two other features of LOGO which make it attractive 
for this kind of application: It is procedural and recursive. We won't run 
into the advantages of recursion in the short examples I'll give here, but 
you'll soon see how the procedural nature of LOGO makes things "easy 
as pie." 

The key to understanding how this simulator works is knowing what 
goes on inside an integrated circuit. Let's take an LS7408 chip for 
example. ... The internal logic of this chip ... is very simple. There 
are eight input pins arranged as four pairs. Each pair of input pins goes 
directly to he corresponding inputs of an AND gate. The output of each 
AND gate goes directly to one of the output pins of the chip. This may 
all seem extremely obvious to an experienced hobbyist, but it is 
necessary to look at each chip in this simplistic way. Each output pin 
must be defined in terms of the operation perfcrmed on the input pins. 
So, the output of pin three, for example, can be defined as being the result 
of pin one ANDed with pin two. In LOGO the definition of pin three can 
be something like this: | 


TO LS7408.3 
OUTPUT ( AND LS7408.1 LS7408.2 ) 
END 


This is a procedure. When called, LS7408.3 will output the result 
of 1574081 ANDed with LS7408.2, which will also have been defined 
as procedures. In the above definition the OUTPUT zommand directs 
LOGO to return either a TRUE or FALSE to the calling procedure, 
depending upon the result of the AND operation. In accordance with 
LOGO syntax, the word AND comes first, followed by a list of its inputs. 
This is another advantage of LOGO: A boolean operation can have any 
number of inputs — not just two. The parentheses were optional in this 
instance. | just put them there for clarity. 

Having defined output pin three in terms of its inputs, we can now 
try it out to see if it works. First, however, we'll need three more small 
procedures to tie up loose ends: | 

ТО 1587408. 

OUTPUT TRUE 
END 

TO LS7408.2 
OUTPUT FALSE 
END 

TO TEST 
PRINT LS7408.3 
END 

The first two procedures define the inputs to LS7408.3. The last 
one is necessary in order to both call it and to do something with the 
output. Simply type TEST at the LOGO prompt, and the word FALSE will 
be returned to you. You can try EDITing LS7408.1 and LS7408.2, 
changing the inputs to verify that everything workds properly. It will. In 
the above example, TRUE (or logic one) ANDed with FALSE (logic zero) 
should, and does return a FALSE. Neat, huh? Are the old cogs turning 
upstairs? Beginning to see how this can be useful? Well, let's go on, shall 
we? 


15 


Ok. So we have seen how to simulate a simple AND gate, but | still 
haven't shown why LOGO is so superior to other languages for something 
like this. You're probably saying to yourself, “биге, it's nifty, but | could 
have written a two line BASIC program to do the same thing.” True, but 
this is only one gate. Where LOGO really shines is in the combination 
of lots of gates. Let's take the example where the output pins three, six 
and eight of our LS7408 are all feeding inputs of a NAND gate in an 
LS7410 chip. Now what do we do? 

Well, first off, we should define the other output pins of the LS7408: 

TO LS7408.6 
OUTPUT ( AND LS7408.4 LS7408.5 ) 


END 

TO LS7408.8 
OUTPUT ( AND LS7408.9 LS7408.10 ) 
END 


Now to define the output of the NAND gate in the 157410: 

TO LS7410.8 
OUTPUT ( AND LS7410.3 LS7410.4 LS7410.5 ) 

END 

EDIT TEST to reflect the new circuit. 

TO FEST 
PRINT LS7410.6 
END 

Define the inputs to the 7408: 

TO LS7408.4 
OUTPUT TRUE 
END 

TO LS7408.5 
OUTPUT TRUE 
END 

TO LS7408.9 
OUTPUT TRUE 
END 

TO LS7408.10 
OUTPUT TRUE 
END 

So, is that it? Whoops! We forgot to tell the software how the two 
chips are interconnected. Let's see, we could write a bunch of procedures 
defining the inputs of the LS7410 to be equal to the respective outputs 
of the LS7408 chip. Seems like a lot of work, huh? But wait! LOGO is 
a procedural language. Since the outputs of the LS7408 have been 
defined as procedures, and since procddures can be used as inputs to 
boolean operations in LOGO, all we have to do is a little EDITing of our 
definition of the output of the 157410: 

TO LS7410.6 
OUTPUT NOT ( AND LS7408.3 LS7408.6 LS7408.8 ) 

END 

Now look at that. No, really. Sit back a second and look at what we 
just did. We defined the input pins of our triple input NAND gate to be 
the output pins of our three AND gates. Just to make sure the 
significance of this has sunk in, ГИ outline what happens when you type - 
TEST. 

LOGO first tries to print 157410.6 but finds it has unresolved inputs. 
The first of these inputs is LS7408.3. So LOGO has to see what the 
output of LS7408.3 is. Sure enough, the inputs to this procedure are 
also unresolved. So, once again, LOGO traces back another step to the 
inputs of LS7408.3 until it either finds another procedure with unresolved 
inputs or a TRUE or FALSE. It will then keep at this until all of the inputs 
to 15 7410.6 are resolved and it can print out the result (which will be 
TRUE, of course — that one lousy little FALSE input at LS7408.2 screws 
us up. Change it to TRUE and see what happens). This all occurs in a 
split second, and all we see is the answer, which is all we really want. 
Now where's your little two line BASIC program? You can get BASIC to 
do this, of course, but not so easily or so elegantly. 

Well, that's about all I'll say on the subject right now. Obviously there 
is more we could say. Entire circuits can be built using the guidelines 
laid out here. More complex chips, such as flip-flops, shift registers, etc., 
will require a little ingenuity to properly simulate. Just remember to define 
the output in terms of what happens to the inputs. Another area which 
needs attention is the inputs to the circuit. A procedure which takes 
patterns of ones and zeros and translates them into the TRUEs and 
FALSEs of the proper inputs is much preferred. But the thrust of this 
article is to get you started, and later, when you've mastered the 
concepts and programmed in all of those refinements, you can give me 
a call and I'll be right over with a blank disk... 


t 


— Jeff Griffen 


Atari Computer Enthusiasts 


A.C.E. is an independent, non-profit апа tax exempt computer club. 


and user’s group with no connection to Atari Corp. We are a group 
interested in educating our members in the use of the Atari Computer 
and in giving the latest News, Reviews and Rumors. 
All our articles, reviews and programs come from you, our members. 
Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $14 a year for U.S., and $24 a year Overseas Airmail 
and include about 10 issues a year of the ACE Newsletter. 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 
**President— Dick Barkley, 2907 Wingate, Eugene, OR 97405 
503-344-5843 
Vice Pres— Larry Gold, 1927 McLean Вма.,. Eugene, Or 97405 
503-686-1490 
8-bit Librarian— Chuck & Jody Ross, 2222 Ironwood, Eugene 97401 
| (503) 342-4133 
ST Librarian— Jim Bumpas, 4405 Dillard Rd., Eugene OR 97405 
503-484-4746 
Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 
503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 
503-484-4746 
ЕВАСЕ. (Education SIG Editor)— Nora Young, 105 Hansen Lane, 
Eugene, OR 97404 / 503-688-1458 
Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, 
updated ACE Library List—new in May 85! 
| Bulletin Board 
(503) 343-4352 
On line 24 hours a day, except for servicing and updating. Consists 
of an 800 XL, 2 double-density double sided disk drives and 2 double- 
sided, double-density, 80-track disk drives, an Epson МХВО printer, a 
1200 baud Prentice P212ST modem, running the Mindlink Bulletin Board 
software distributed by SofMark. 
Best of ACE books. 
Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 
Volume 2 covers July 1982 to June 1983 
Only $12 each ($2 extra for Airmail). Available only from: 
George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 


Editors — 








CLASS 
MAIL 





TYPESETTING 
FROM YOUR COMPUTER 


ATARI OWNERS: If you.have a modem, text editor, and com- 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes “on line: 
And its easy to encode your copy with the few typesetting 
commands you need. 
COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — | 
PUBLICATION DESIGN, EDITING, & PRODUCTION 


Editing & Design Services 


30 East 13th Avenue и - Eugene, Oregon 97401 
Phone 503/683-2657 


SortFinder Index 
A composite index of Atari related articles in four popular computer 
periodicals, including ACE. Volume 1covers April, 1981 to June, 1983. 
Volume 2 covers July, 1983 to December, 1985. Only $6 per printed copy 
or $11 per disk copy for ACE members: 
Jim Carr 2660 S.W. DeArmond 
Corvallis, OR 97333 





